home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
BOZOL2.ZIP
/
VARIABLE.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-02-08
|
833b
|
25 lines
CASE "LET", "SET"
v%=ArgPtr%
VAR$=UCASE$(POPARG$)
VALUE$=POPARG$
IF LEN(LITERAL$(v%)) THEN
ARRAY SCAN VAR$(1),COLLATE UCASE, =LITERAL$(v%), TO i%
IF i% THEN
VALUE$(i%)=VALUE$
ELSE
INCR NextVar%
VALUE$(NextVar%)=VALUE$
VAR$(NextVar%)=LITERAL$(v%)
END IF
END IF
CASE "CLEAR"
V$=POPARG$
IF V$="" THEN
NextVar%=1
REDIM VAR$(UBOUND(VAR$))
REDIM VALUE$(UBOUND(VALUE$))
ELSE
VCLEAR V$
END IF